home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (DO) / Softdisk Magazette Volume 2, No. 06 (1983-02)(Softdisk)(Side B).zip / Softdisk Magazette Volume 2, No. 06 (1983-02)(Softdisk)(Side B).do / ELECTRIC ERASER.bas < prev    next >
BASIC Source File  |  1996-12-24  |  4KB  |  108 lines
  1. 100  TEXT : HOME : CLEAR : REM 3K
  2. 110  INVERSE 
  3. 120  PRINT "                        "
  4. 130  PRINT " ********************** "
  5. 140  PRINT " *                    * "
  6. 150  PRINT " *   ELECTRIC ERASER  * "
  7. 160  PRINT " *                    * "
  8. 170  PRINT " *   PAUL'S ELECTRIC  * "
  9. 180  PRINT " *      COMPUTER      * "
  10. 190  PRINT " * 3464 TOWNHOUSE DR. * "
  11. 200  PRINT " *  LAS VEGAS NEVADA  * "
  12. 210  PRINT " *        89121       * "
  13. 220  PRINT " *                    * "
  14. 230  PRINT " ********************** "
  15. 240  PRINT "                        "
  16. 250  REM 
  17. 260  FOR M = 1 TO 3000: NEXT M: NORMAL 
  18. 270  DIM A$(100)
  19. 280  REM 
  20. 290  REM  A CHEAP WORD PROCESSOR
  21. 300  REM   ^
  22. 310  REM  VERY
  23. 320  REM 
  24. 330  REM  PAUL RAYMER
  25. 340  REM 
  26. 350  REM  PAUL'S ELECTRIC 
  27. 360  REM  COMPUTER
  28. 370  REM  3464 TOWNHOUSE DR
  29. 380  REM  LAS VEGAS NV 89121
  30. 390  REM 
  31. 400  REM  VII/XXI/MCMLXXX
  32. 410  REM 
  33. 420 X$ = "(Y/N)"
  34. 430  HOME 
  35. 440  PRINT "IS THIS THE FIRST TIME YOU ARE USING    THIS WORD PROCESSOR? ";X$;" ";: GET AN$
  36. 450  IF AN$ = "N"  THEN 520
  37. 460  HOME : PRINT "PLEASE ANSWER THE FOLLOWING QUESTIONS:"
  38. 470  PRINT : PRINT "IS YOUR PRINTER ON? ";X$;" ";: CALL  -756: PRINT : PRINT 
  39. 480  PRINT "DOES YOUR COMPUTER HAVE LOWER CASE      CAPABILITY? ";: GET AN$: PRINT : PRINT 
  40. 490  PRINT "HAVE YOU EVER USED ANY WORD PROCESSOR   BEFORE?            ---": PRINT X$;" ";: CALL  -756: PRINT : PRINT 
  41. 500  PRINT "HAVE YOU READ ANY GOOD BOOKS LATELY? ": PRINT X$;: CALL  -756: PRINT : PRINT 
  42. 510  GOSUB 1080
  43. 520  HOME : PRINT "TYPE COPY WHEN YOU SEE THE '?' IN THE   NORMAL MANNER.  TYPE 'QUIT' WHEN DONE   YOU WILL THEN HAVE A CHANCE TO EDIT     BEFORE PRINTING."
  44. 530  PRINT 
  45. 540  PRINT "PRINTER SLOT# (0=SCREEN)";: INPUT P
  46. 550  HOME 
  47. 560  FOR X = 1 TO 100
  48. 570  PRINT X; CHR$(32);: INPUT A$(X)
  49. 580  IF A$(X) = "QUIT"  THEN 600
  50. 590  NEXT X
  51. 600 N = X -1: HOME 
  52. 610  INPUT "READY TO PRINT? ";Z$
  53. 620  IF  LEFT$(Z$,1) < >"Y"  THEN 650
  54. 630  HOME : PRINT "REGULAR OR GOVERNMENT VERSION?": INPUT G$: IF  LEFT$(G$,1) = "G"  THEN 910
  55. 640  IF  LEFT$(Z$,1) = "Y"  THEN 690
  56. 650  PRINT "WANT TO EDIT COPY?": INPUT E$
  57. 660  IF  LEFT$(E$,1) = "Y"  THEN 780
  58. 670  PRINT "WANT TO START ALL OVER?": INPUT E$: IF  LEFT$(E$,1) = "Y"  THEN 290
  59. 680  PRINT "BYE NOW": PR# 0: END 
  60. 690  HOME 
  61. 700  PR# P
  62. 710  FOR Y = 1 TO N
  63. 720  PRINT A$(Y)
  64. 730  NEXT Y
  65. 740  PR# 0: PRINT : PRINT : PRINT 
  66. 750  INPUT "MORE? (Y/N) ";C$
  67. 760  IF  LEFT$(C$,1) = "Y"  THEN 430
  68. 770  END 
  69. 780  HOME 
  70. 790  PRINT "YOU WILL NOW SEE THE COPY YOU HAVE      WRITTEN -- LINE BY LINE"
  71. 800  PRINT 
  72. 810  PRINT "TO MAKE CHANGES JUST TYPE THEM - ELSE   JUST PRESS RETURN"
  73. 820  PRINT : PRINT "---------------------------------------": PRINT 
  74. 830  FOR Y = 1 TO N
  75. 840  HTAB 2: PRINT A$(Y)
  76. 850  INPUT C$: IF  LEN(C$) = 0  THEN 880
  77. 860  INVERSE : PRINT " *** CHANGE MADE *** ": NORMAL 
  78. 870 A$(Y) = C$
  79. 880  NEXT Y
  80. 890  GOTO 610
  81. 900  REM 
  82. 910  REM  GOVERNMENT VERSION
  83. 920  REM 
  84. 930  PR# P
  85. 940  HOME 
  86. 950  PRINT "THIS VERSION IS A TYPICAL GOVERNMENT    VERSION...DONE SLOWLY, WITH A LOT OF    NOISE AND NOT TOO WELL": PRINT 
  87. 960  FOR G = 1 TO N
  88. 970 G$ = A$(G)
  89. 980 GG =  VAL(G$): IF GG >0  THEN XX = GG/2:G$ =  STR$(XX): PRINT G$: GOTO 1050
  90. 990  IF  LEN(G$) = 0  THEN G$ = "?#&!*"
  91. 1000  FOR M =  LEN(G$) TO 1  STEP  -1
  92. 1010  PRINT  MID$ (G$,M,1);
  93. 1020  FOR D = 1 TO 300: NEXT D: PRINT  CHR$(7);
  94. 1030  NEXT M
  95. 1040  PRINT 
  96. 1050  NEXT G
  97. 1060  GOTO 740
  98. 1070  REM 
  99. 1080  REM  INSTRUCTIONS
  100. 1090  REM 
  101. 1100  HOME : PRINT "IT'S EASY TO TYPE, HERE ARE THE LETTERS WHICH ARE AVAILABLE TO YOU:"
  102. 1110  IF AN$ = "Y"  THEN H = 37
  103. 1120  FOR X = 33 TO 90 +H: PRINT  CHR$(X); CHR$(32);: FOR M = 1 TO 50: NEXT M: NEXT X
  104. 1130  PRINT : PRINT : PRINT "JUST LOOK FOR THESE LETTERS ON YOUR     APPLE KEYBOARD AND YOU WILL BE ABLE TO  TYPE LETTERS, WRITE SCRIPTS OR PERHAPS  POETRY, HAIKU OR SCIENTIFIC STUFF."
  105. 1140  PRINT "BON APETIT! (GOOD LUCK)."
  106. 1150  VTAB 23: PRINT "=PRESS ANY LETTER EXCEPT X TO CONTINUE=": GET AN$
  107. 1160  IF AN$ = "X"  THEN  INVERSE : PRINT  CHR$(7);"EXCEPT";: NORMAL : PRINT " X!": FOR M = 1 TO 1000: NEXT M: GOTO 1150
  108. 1170  RETURN